home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / vxbase.zip / VXBTEST.BAS < prev    next >
BASIC Source File  |  1992-05-05  |  23KB  |  485 lines
  1. ' vxBase Sample Application
  2. ' Aircraft Brokerage System
  3. ' ------------------------
  4.  
  5. ' Declare file select areas as Global
  6. ' so they can be accessed from any form
  7. ' -------------------------------------
  8. Global AirtypesDbf As Integer
  9. Global AirTypesNtx As Integer
  10. Global AircustDbf As Integer
  11. Global Aircust1Ntx As Integer
  12. Global Aircust2Ntx As Integer
  13. Global Aircust3Ntx As Integer
  14. Global AirstateDbf As Integer
  15. Global Airstat1Ntx As Integer
  16. Global Airstat2Ntx As Integer
  17. Global AirbuyerDbf As Integer
  18. Global Airbuy1Ntx As Integer
  19. Global Airbuy2Ntx As Integer
  20. Global AircraftDbf As Integer
  21. Global Aircraf1Ntx As Integer
  22. Global Aircraf2Ntx As Integer
  23.  
  24. ' vars for each browse return so other forms can interrogate
  25. ' ----------------------------------------------------------
  26. Global TypeReturn As Long
  27. Global CustReturn As Long
  28. Global BuyerReturn As Long
  29. Global AircraftReturn As Long
  30. Global StateReturn As Long
  31.  
  32. ' vars to hold internal linkage keys
  33. ' ----------------------------------
  34. Global CustKey As String
  35. Global TypeKey As String
  36. Global BuyerRec As Long
  37.  
  38. ' Form active vars so we can test if any active
  39. ' when we close the system down in vxform1
  40. ' ----------------------------------------------
  41. Global Form2Active As Integer
  42. Global Form3Active As Integer
  43. Global Form4Active As Integer
  44. Global Form5Active As Integer
  45. Global Form6Active As Integer
  46. Global Form7Active As Integer
  47.  
  48. ' Define some WINAPI stuff to limit text length and change cursors
  49. ' ----------------------------------------------------------------
  50. Declare Function GetFocus% Lib "user" ()
  51. Declare Function SetFocusApi Lib "user" Alias "SetFocus" (ByVal Hwnd As Integer) As Integer
  52. Declare Function SendMessage& Lib "user" (ByVal Hwnd%, ByVal wMsg%, ByVal wParam%, ByVal lParam&)
  53. Global Const WM_USER = &H400
  54. Global Const EM_LIMITTEXT = WM_USER + 21
  55. Global Const WM_CLOSE = &H10
  56.  
  57. Declare Function LoadCursor Lib "user" (ByVal hInstance As Integer, ByVal CursorName As Long) As Integer
  58. Declare Function SetCursor Lib "user" (ByVal hCursor As Integer) As Integer
  59. Global Const IDC_WAIT = 32514&
  60. Global Const IDC_ARROW = 32512&
  61.  
  62. ' winapi stuff to limit to a single app or to get browse handle
  63. ' -------------------------------------------------------------
  64. Declare Function FindWindow Lib "user" (ByVal ClassName As Any, ByVal Caption As Any) As Integer
  65.  
  66. ' ----------------------------------------------
  67. ' vxBase.txt contains the necessary declarations
  68. ' to run vxBase from Visual Basic
  69. ' ----------------------------------------------
  70. ' vxBase Global Constants
  71. ' -----------------------
  72. Global Const BROWSE_CLOSED = -1
  73. Global Const BROWSE_EDIT = -2
  74. Global Const BROWSE_ADD = -3
  75. Global Const BROWSE_DELETE = -4
  76. Global Const BROWSE_ERROR = -5
  77. Global Const BROWSE_USER = -6
  78.  
  79. ' vxBase Color References for user tables
  80. ' ---------------------------------------
  81. Global Const VX_RED = &HFF
  82. Global Const VX_BLUE = &HFF0000
  83. Global Const VX_GRAY = &HC0C0C0
  84.  
  85. ' vxBase Control style modes
  86. ' --------------------------
  87. Global Const VX_RAISE = 0
  88. Global Const VX_RECESS = 1
  89. Global Const VX_CREASE = 2
  90.  
  91. ' vxBase Table Field Types
  92. ' ------------------------
  93. Global Const VX_FIELD = 0
  94. Global Const VX_EXPR = 1
  95.  
  96. ' browse case types
  97. ' -----------------
  98. Global Const VX_UPPER = 0
  99. Global Const VX_LOWER = 1
  100.  
  101. ' vxBase Menu item identifiers
  102. ' ----------------------------
  103. Global Const VX_SEPBAR = 2
  104. Global Const VX_MENUHEAD = 1
  105. Global Const VX_RETURN = 0
  106.  
  107. ' Country specific identifiers
  108. ' ----------------------------
  109. Global Const VX_ENGLISH = 0
  110. Global Const VX_AMERICAN = 0
  111. Global Const VX_ANSI = 1
  112. Global Const VX_BRITISH = 2
  113. Global Const VX_FRENCH = 3
  114. Global Const VX_GERMAN = 4
  115. Global Const VX_ITALIAN = 5
  116. Global Const VX_DUTCH = 6
  117. Global Const VX_SPANISH = 7
  118.  
  119. ' vxBase CALLed Sub Procedures
  120. ' ----------------------------
  121. Declare Sub vxBrowse Lib "vxbase.dll" (ByVal Hwnd%, ByVal DbfArea%, ByVal NtxArea%, ByVal EditMode%, ByVal AllowFilter%, ByVal EditMenu%, ByVal StartRec&, ByVal Caption$, RetVal&)
  122. Declare Sub vxBrowseCase Lib "vxbase.dll" (ByVal DefCase As Integer)
  123. Declare Sub vxBrowsePos Lib "vxbase.dll" (ByVal StartX As Integer, ByVal StartY As Integer, ByVal xWidth As Integer, ByVal yHeight As Integer)
  124. Declare Sub vxCtlGrayReset Lib "vxbase.dll" ()
  125. Declare Sub vxCtlGraySet Lib "vxbase.dll" ()
  126. Declare Sub vxCtlLength Lib "vxbase.dll" (ByVal FieldName As String)
  127. Declare Sub vxCtlStyle Lib "vxbase.dll" (CtlName As Any, ByVal Mode As Integer)
  128. Declare Sub vxDouble Lib "vxbase.dll" (ByVal FieldName As String, DblAmount As Double)
  129. Declare Sub vxExactOff Lib "vxbase.dll" ()
  130. Declare Sub vxExactOn Lib "vxbase.dll" ()
  131. Declare Sub vxFilter Lib "vxbase.dll" (ByVal FilterString As String)
  132. Declare Sub vxFilterReset Lib "vxbase.dll" ()
  133. Declare Sub vxFormFrame Lib "vxbase.dll" (ByVal Hwnd As Integer)
  134. Declare Sub vxInit Lib "vxbase.dll" ()
  135. Declare Sub vxJoin Lib "vxbase.dll" (ByVal DbfArea As Integer, ByVal NtxArea As Integer, ByVal JoinExpr As String, ByVal KeyType As Integer, ByVal JoinTitle As String)
  136. Declare Sub vxJoinNoAuto Lib "vxbase.dll" ()
  137. Declare Sub vxJoinReset Lib "vxbase.dll" ()
  138. Declare Sub vxMemoEdit Lib "vxbase.dll" (ByVal Hwnd As Integer, ByVal FieldName As String)
  139. Declare Sub vxMenuDeclare Lib "vxbase.dll" (ByVal NumItems As Integer)
  140. Declare Sub vxMenuItem Lib "vxbase.dll" (ByVal MenuIndex As Integer, ByVal MenuLev As Integer, ByVal MenuString As String, ByVal MenuType As Integer)
  141. Declare Sub vxReplDate Lib "vxbase.dll" (ByVal FieldName As String, ByVal DateString As String)
  142. Declare Sub vxReplDouble Lib "vxbase.dll" (ByVal FieldName As String, DblAmount As Double)
  143. Declare Sub vxReplInteger Lib "vxbase.dll" (ByVal FieldName As String, IntAmount As Integer)
  144. Declare Sub vxReplLogical Lib "vxbase.dll" (ByVal FieldName As String, ByVal BoolVal As Integer)
  145. Declare Sub vxReplLong Lib "vxbase.dll" (ByVal FieldName As String, LongInt As Long)
  146. Declare Sub vxReplString Lib "vxbase.dll" (ByVal FieldName As String, ByVal FieldString As String)
  147. Declare Sub vxSetDate Lib "vxbase.dll" (ByVal DateType As Integer)
  148. Declare Sub vxSetErrorCaption Lib "vxbase.dll" (ByVal CaptionString As String)
  149. Declare Sub vxSetLanguage Lib "vxbase.dll" (ByVal LangType As Integer)
  150. Declare Sub vxSetLocks Lib "vxbase.dll" (ByVal OnOrOff As Integer)
  151. Declare Sub vxSetupPrinter Lib "vxbase.dll" (ByVal Hwnd As Integer)
  152. Declare Sub vxSum Lib "vxbase.dll" (ByVal FieldName As String, DblAmount As Double)
  153. Declare Sub vxTableDeclare Lib "vxbase.dll" (ByVal ColorRef&, BofExpr As Any, EofExpr As Any, ByVal Scope%, ByVal Quick%, ByVal Columns%)
  154. Declare Sub vxTableField Lib "vxbase.dll" (ByVal ColIndex As Integer, ByVal ColHead As String, ByVal ColExpr As String, ByVal ColType As Integer)
  155. Declare Sub vxTableReset Lib "vxbase.dll" ()
  156. Declare Sub vxWindowDereg Lib "vxbase.dll" (ByVal Hwnd As Integer)
  157.  
  158.  
  159. ' vxBase Functions
  160. ' ----------------
  161. Declare Function vxAppendBlank Lib "vxbase.dll" () As Integer
  162. Declare Function vxAppendFrom Lib "vxbase.dll" (ByVal FromFile As String) As Integer
  163. Declare Function vxAreaDbf Lib "vxbase.dll" (ByVal DbfName As String) As Integer
  164. Declare Function vxAreaNtx Lib "vxbase.dll" (ByVal NtxName As String) As Integer
  165. Declare Function vxBof Lib "vxbase.dll" () As Integer
  166. Declare Function vxBottom Lib "vxbase.dll" () As Integer
  167. Declare Function vxChar Lib "vxbase.dll" (ByVal FieldName As String) As String
  168. Declare Function vxClose Lib "vxbase.dll" () As Integer
  169. Declare Function vxCloseAll Lib "vxbase.dll" () As Integer
  170. Declare Function vxCloseNtx Lib "vxbase.dll" (ByVal NtxArea As Integer) As Integer
  171. Declare Function vxCopy Lib "vxbase.dll" (ByVal NewDbfName As String) As Integer
  172. Declare Function vxCopyStruc Lib "vxbase.dll" (ByVal NewDbfName As String) As Integer
  173. Declare Function vxCreateNtx Lib "vxbase.dll" (ByVal NewNtxName As String, ByVal NtxExpr As String) As Integer
  174. Declare Function vxDateFormat Lib "vxbase.dll" (ByVal DateField As String) As String
  175. Declare Function vxDateString Lib "vxbase.dll" (ByVal DateField As String, ByVal DateType As Integer) As String
  176. Declare Function vxDbfDate Lib "vxbase.dll" () As String
  177. Declare Function vxDbfName Lib "vxbase.dll" () As String
  178. Declare Function vxDeallocate Lib "vxbase.dll" () As Integer
  179. Declare Function vxDecimals Lib "vxbase.dll" (ByVal FieldName As String) As Integer
  180. Declare Function vxDeleted Lib "vxbase.dll" () As Integer
  181. Declare Function vxDeleteRange Lib "vxbase.dll" (ByVal StartRec As Long, ByVal EndRec As Long) As Integer
  182. Declare Function vxDeleteRec Lib "vxbase.dll" () As Integer
  183. Declare Function vxDescend Lib "vxbase.dll" (ByVal KeyString As String) As String
  184. Declare Function vxEmpty Lib "vxbase.dll" (ByVal FieldName As String) As Integer
  185. Declare Function vxEof Lib "vxbase.dll" () As Integer
  186. Declare Function vxEval Lib "vxbase.dll" (ByVal XBaseExpr As String) As Integer
  187. Declare Function vxEvalDouble Lib "vxbase.dll" (ByVal XBaseExpr As String, DblAmount As Double) As Integer
  188. Declare Function vxEvalLogical Lib "vxbase.dll" (ByVal XBaseExpr As String, ByVal TrueFalse As String) As Integer
  189. Declare Function vxEvalString Lib "vxbase.dll" (ByVal XBaseExpr As String, ByVal StringVal As String) As Integer
  190. Declare Function vxField Lib "vxbase.dll" (ByVal FieldName As String) As String
  191. Declare Function vxFieldCount Lib "vxbase.dll" () As Integer
  192. Declare Function vxFieldName Lib "vxbase.dll" (ByVal FieldNumber As Integer) As String
  193. Declare Function vxFieldSize Lib "vxbase.dll" (ByVal FieldName As String) As Integer
  194. Declare Function vxFieldType Lib "vxbase.dll" (ByVal FieldName As String) As String
  195. Declare Function vxFile Lib "vxbase.dll" (ByVal FileName As String) As Integer
  196. Declare Function vxFound Lib "vxbase.dll" () As Integer
  197. Declare Function vxGo Lib "vxbase.dll" (ByVal RecNum As Long) As Integer
  198. Declare Function vxInteger Lib "vxbase.dll" (ByVal FieldName As String) As Integer
  199. Declare Function vxIsMemo Lib "vxbase.dll" (ByVal MemoFieldName As String) As Integer
  200. Declare Function vxIsRecLocked Lib "vxbase.dll" () As Integer
  201. Declare Function vxLockDbf Lib "vxbase.dll" () As Integer
  202. Declare Function vxLocked Lib "vxbase.dll" () As Integer
  203. Declare Function vxLockRecord Lib "vxbase.dll" () As Integer
  204. Declare Function vxLong Lib "vxbase.dll" (ByVal FieldName As String) As Long
  205. Declare Function vxMemoRead Lib "vxbase.dll" (ByVal FieldName As String, ByVal LineWidth As Integer) As String
  206. Declare Function vxNtxDeselect Lib "vxbase.dll" () As Integer
  207. Declare Function vxNtxExpr Lib "vxbase.dll" (ByVal NtxArea As Integer) As String
  208. Declare Function vxNtxName Lib "vxbase.dll" (ByVal NtxArea As Integer) As String
  209. Declare Function vxNumRecs Lib "vxbase.dll" () As Long
  210. Declare Function vxPack Lib "vxbase.dll" (ByVal Hwnd As Integer) As Integer
  211. Declare Function vxRecall Lib "vxbase.dll" () As Integer
  212. Declare Function vxRecNo Lib "vxbase.dll" () As Long
  213. Declare Function vxRecord Lib "vxbase.dll" (RecStruc As Any) As Integer
  214. Declare Function vxRecSize Lib "vxbase.dll" () As Integer
  215. Declare Function vxReindex Lib "vxbase.dll" () As Integer
  216. Declare Function vxReplMemo Lib "vxbase.dll" (ByVal FieldName As String, ByVal MemoString As String) As Integer
  217. Declare Function vxSeek Lib "vxbase.dll" (ByVal SearchKey As String) As Integer
  218. Declare Function vxSeekSoft Lib "vxbase.dll" (ByVal SearchKey As String) As Integer
  219. Declare Function vxSelectDbf Lib "vxbase.dll" (ByVal DbfArea As Integer) As Integer
  220. Declare Function vxSelectNtx Lib "vxbase.dll" (ByVal NtxArea As Integer) As Integer
  221. Declare Function vxSetHandles Lib "vxbase.dll" (ByVal NumHandles As Integer) As Integer
  222. Declare Function vxSkip Lib "vxbase.dll" (ByVal NumRecords As Long) As Integer
  223. Declare Function vxTestNtx Lib "vxbase.dll" (ByVal NtxArea As Integer) As Integer
  224. Declare Function vxTop Lib "vxbase.dll" () As Integer
  225. Declare Function vxTrue Lib "vxbase.dll" (ByVal FieldName As String) As Integer
  226. Declare Function vxUnlock Lib "vxbase.dll" () As Integer
  227. Declare Function vxUseDbf Lib "vxbase.dll" (ByVal DbfName As String) As Integer
  228. Declare Function vxUseDbfRO Lib "vxbase.dll" (ByVal DbfName As String) As Integer
  229. Declare Function vxUseNtx Lib "vxbase.dll" (ByVal NtxName As String) As Integer
  230. Declare Function vxWrite Lib "vxbase.dll" () As Integer
  231. Declare Function vxWriteHdr Lib "vxbase.dll" () As Integer
  232. Declare Function vxZap Lib "vxbase.dll" () As Integer
  233.  
  234.  
  235. ' ---------------------------------------
  236. ' File structure data type. Add more
  237. ' elements or delete unnecessary elements
  238. ' as required by the largest dbf creation
  239. ' in your application
  240. ' ---------------------------------------
  241.  
  242. Type FileStruc
  243.    Fld01 As String * 16
  244.    Fld02 As String * 16
  245.    Fld03 As String * 16
  246.    Fld04 As String * 16
  247.    Fld05 As String * 16
  248.    Fld06 As String * 16
  249.    Fld07 As String * 16
  250.    Fld08 As String * 16
  251.    Fld09 As String * 16
  252.    Fld10 As String * 16
  253.    Fld11 As String * 16
  254.    Fld12 As String * 16
  255.    Fld13 As String * 16
  256.    Fld14 As String * 16
  257.    Fld15 As String * 16
  258.    Fld16 As String * 16
  259.    Fld17 As String * 16
  260.    Fld18 As String * 16
  261.    Fld19 As String * 16
  262.    Fld20 As String * 16
  263.    Fld21 As String * 16
  264.    Fld22 As String * 16
  265.    Fld23 As String * 16
  266.    Fld24 As String * 16
  267.    Fld25 As String * 16
  268.    Fld26 As String * 16
  269.    Fld27 As String * 16
  270.    Fld28 As String * 16
  271.    Fld29 As String * 16
  272.    Fld30 As String * 16
  273.    Fld31 As String * 16
  274.    Fld32 As String * 16
  275. End Type
  276.  
  277. ' declare functions that use FileStruc type
  278. ' -----------------------------------------
  279. Declare Function vxCreateDbf Lib "vxbase.dll" (ByVal NewDbfName As String, ByVal NumFields As Integer, FStructure As FileStruc) As Integer
  280.  
  281. ' ----------------------------------------
  282. ' define types file record structure for
  283. ' use in vxform8 and the vxRecord function
  284. ' ----------------------------------------
  285. Type CatRec
  286.    cDelFlag As String * 1
  287.    Category As String * 3
  288.    CatName As String * 35
  289. End Type
  290. ' note that every xbase record structure MUST begin
  291. ' with a single character deletion flag
  292. ' -------------------------------------------------
  293.  
  294. '============================================================================'
  295. '                                                                            '
  296. ' Visual Basic global constant file.  This file can be loaded into the       '
  297. ' global module.                                                             '
  298. '                                                                            '
  299. ' Some constants are commented out because they have duplicates (for         '
  300. ' example, NONE appears in several places).                                  '
  301. '                                                                            '
  302. '============================================================================'
  303.  
  304. '========='
  305. '         '
  306. ' General '
  307. '         '
  308. '========='
  309.  
  310. ' Booleans
  311. Global Const TRUE = -1
  312. Global Const FALSE = 0
  313.  
  314. '====================='
  315. '                     '
  316. ' Function parameters '
  317. '                     '
  318. '====================='
  319.  
  320. ' MsgBox parameters
  321. Global Const MB_OK = 0                 ' OK button only
  322. Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
  323. Global Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
  324. Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
  325. Global Const MB_YESNO = 4              ' Yes and No buttons
  326. Global Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons
  327.  
  328. Global Const MB_ICONSTOP = 16          ' Critical message
  329. Global Const MB_ICONQUESTION = 32      ' Warning query
  330. Global Const MB_ICONEXCLAMATION = 48   ' Warning message
  331. Global Const MB_ICONINFORMATION = 64   ' Information message
  332.  
  333. Global Const MB_DEFBUTTON1 = 0         ' First button is default
  334. Global Const MB_DEFBUTTON2 = 256       ' Second button is default
  335. Global Const MB_DEFBUTTON3 = 512       ' Third button is default
  336.  
  337. ' MsgBox return values
  338. Global Const IDOK = 1                  ' OK button pressed
  339. Global Const IDCANCEL = 2              ' Cancel button pressed
  340. Global Const IDABORT = 3               ' Abort button pressed
  341. Global Const IDRETRY = 4               ' Retry button pressed
  342. Global Const IDIGNORE = 5              ' Ignore button pressed
  343. Global Const IDYES = 6                 ' Yes button pressed
  344. Global Const IDNO = 7                  ' No button pressed
  345.  
  346. '================='
  347. '                 '
  348. ' Property values '
  349. '                 '
  350. '================='
  351.  
  352. ' Alignment (label)
  353. Global Const LEFT_JUSTIFY = 0          ' 0 - Left Justify
  354. Global Const RIGHT_JUSTIFY = 1         ' 1 - Right Justify
  355. Global Const CENTER = 2                ' 2 - Center
  356.  
  357. ' BackColor, ForeColor, FillColor (standard RGB colors: form, controls)
  358. Global Const BLACK = &H0&
  359. Global Const RED = &HFF&
  360. Global Const GREEN = &HFF00&
  361. Global Const YELLOW = &HFFFF&
  362. Global Const BLUE = &HFF0000
  363. Global Const MAGENTA = &HFF00FF
  364. Global Const CYAN = &HFFFF00
  365. Global Const WHITE = &HFFFFFF
  366.  
  367. ' BackColor, ForeColor, FillColor (system colors: form, controls)
  368. Global Const SCROLL_BARS = &H80000000           ' Scroll-bars gray area.
  369. Global Const DESKTOP = &H80000001               ' Desktop.
  370. Global Const ACTIVE_TITLE_BAR = &H80000002      ' Active window caption.
  371. Global Const INACTIVE_TITLE_BAR = &H80000003    ' Inactive window caption.
  372. Global Const MENU_BAR = &H80000004              ' Menu background.
  373. Global Const WINDOW_BACKGROUND = &H80000005     ' Window background.
  374. Global Const WINDOW_FRAME = &H80000006          ' Window frame.
  375. Global Const MENU_TEXT = &H80000007             ' Text in menus.
  376. Global Const WINDOW_TEXT = &H80000008           ' Text in windows.
  377. Global Const TITLE_BAR_TEXT = &H80000009        ' Text in caption, size box, scroll-bar arrow box..
  378. Global Const ACTIVE_BORDER = &H8000000A         ' Active window border.
  379. Global Const INACTIVE_BORDER = &H8000000B       ' Inactive window border.
  380. Global Const APPLICATION_WORKSPACE = &H8000000C ' Background color of multiple document interface (MDI) applications.
  381. Global Const HIGHLIGHT = &H8000000D             ' Items selected item in a control.
  382. Global Const HIGHLIGHT_TEXT = &H8000000E        ' Text of item selected in a control.
  383. Global Const BUTTON_FACE = &H8000000F           ' Face shading on command buttons.
  384. Global Const BUTTON_SHADOW = &H80000010         ' Edge shading on command buttons.
  385. Global Const GRAY_TEXT = &H80000011             ' Grayed (disabled) text.  This color is set to 0 if the current display driver does not support a solid gray color.
  386. Global Const BUTTON_TEXT = &H80000012           ' Text on push buttons.
  387.  
  388. ' BorderStyle (form, label, picture box, text box)
  389. Global Const NONE = 0                  ' 0 - None
  390. Global Const FIXED_SINGLE = 1          ' 1 - Fixed Single
  391. Global Const SIZABLE = 2               ' 2 - Sizable (Forms only)
  392. Global Const FIXED_DOUBLE = 3          ' 3 - Fixed Double (Forms only)
  393.  
  394. ' DragMode (controls)
  395. Global Const MANUAL = 0                ' 0 - Manual
  396. Global Const AUTOMATIC = 1             ' 1 - Automatic
  397.  
  398. ' DrawMode (form, picture box, Printer)
  399. Global Const BLACKNESS = 1             ' 1 - Blackness
  400. Global Const NOT_MERGE_PEN = 2         ' 2 - Not Merge Pen
  401. Global Const MASK_NOT_PEN = 3          ' 3 - Mask Not Pen
  402. Global Const NOT_COPY_PEN = 4          ' 4 - Not Copy Pen
  403. Global Const MASK_PEN_NOT = 5          ' 5 - Mask Pen Not
  404. Global Const INVERT = 6                ' 6 - Invert
  405. Global Const XOR_PEN = 7               ' 7 - Xor Pen
  406. Global Const NOT_MASK_PEN = 8          ' 8 - Not Mask Pen
  407. Global Const MASK_PEN = 9              ' 9 - Mask Pen
  408. Global Const NOT_XOR_PEN = 10          ' 10 - Not Xor Pen
  409. Global Const NOP = 11                  ' 11 - Nop
  410. Global Const MERGE_NOT_PEN = 12        ' 12 - Merge Not Pen
  411. Global Const COPY_PEN = 13             ' 13 - Copy Pen
  412. Global Const MERGE_PEN_NOT = 14        ' 14 - Merge Pen Not
  413. Global Const MERGE_PEN = 15            ' 15 - Merge Pen
  414. Global Const WHITENESS = 16            ' 16 - Whiteness
  415.  
  416. ' DrawStyle (form, picture box, Printer)
  417. Global Const SOLID = 0                 ' 0 - Solid
  418. Global Const DASH = 1                  ' 1 - Dash
  419. Global Const DOT = 2                   ' 2 - Dot
  420. Global Const DASH_DOT = 3              ' 3 - Dash-Dot
  421. Global Const DASH_DOT_DOT = 4          ' 4 - Dash-Dot-Dot
  422. Global Const INVISIBLE = 5             ' 5 - Invisible
  423. Global Const INSIDE_SOLID = 6          ' 6 - Inside Solid
  424.  
  425. ' FillStyle (form, picture box, Printer)
  426. ' Global Const SOLID = 0               ' 0 - Solid
  427. Global Const TRANSPARENT = 1           ' 1 - Transparent
  428. Global Const HORIZONTAL_LINE = 2       ' 2 - Horizontal Line
  429. Global Const VERTICAL_LINE = 3         ' 3 - Vertical Line
  430. Global Const UPWARD_DIAGONAL = 4       ' 4 - Upward Diagonal
  431. Global Const DOWNWARD_DIAGONAL = 5     ' 5 - Downward Diagonal
  432. Global Const CROSS = 6                 ' 6 - Cross
  433. Global Const DIAGONAL_CROSS = 7        ' 7 - Diagonal Cross
  434.  
  435. ' LinkMode (controls)
  436. ' Global Const NONE = 0                ' 0 - None
  437. Global Const HOT = 1                   ' 1 - Hot
  438. Global Const COLD = 2                  ' 2 - Cold
  439.  
  440. ' LinkMode (form)
  441. ' Global Const NONE = 0                ' 0 - None
  442. Global Const SERVER = 1                ' 1 - Server
  443.  
  444. ' MousePointer (form, controls)
  445. Global Const DEFAULT = 0               ' 0 - Default
  446. Global Const ARROW = 1                 ' 1 - Arrow
  447. Global Const CROSSHAIR = 2             ' 2 - Cross
  448. Global Const IBEAM = 3                 ' 3 - I-Beam
  449. Global Const ICON_POINTER = 4          ' 4 - Icon
  450. Global Const SIZE_POINTER = 5          ' 5 - Size
  451. Global Const SIZE_NE_SW = 6            ' 6 - Size NE SW
  452. Global Const SIZE_N_S = 7              ' 7 - Size N S
  453. Global Const SIZE_NW_SE = 8            ' 8 - Size NW SE
  454. Global Const SIZE_W_E = 9              ' 9 - Size W E
  455. Global Const UP_ARROW = 10             ' 10 - Up Arrow
  456. Global Const HOURGLASS = 11            ' 11 - Hourglass
  457. Global Const NO_DROP = 12              ' 12 - No drop
  458.  
  459. ' ScaleMode (form, picture box, Printer)
  460. Global Const USER = 0                  ' 0 - User
  461. Global Const TWIPS = 1                 ' 1 - Twip
  462. Global Const POINTS = 2                ' 2 - Point
  463. Global Const PIXELS = 3                ' 3 - Pixel
  464. Global Const CHARACTERS = 4            ' 4 - Character
  465. Global Const INCHES = 5                ' 5 - Inch
  466. Global Const MILLIMETERS = 6           ' 6 - Millimeter
  467. Global Const CENTIMETERS = 7           ' 7 - Centimeter
  468.  
  469. ' ScrollBar (text box)
  470. ' Global Const NONE = 0                ' 0 - None
  471. Global Const HORIZONTAL = 1            ' 1 - Horizontal
  472. Global Const VERTICAL = 2              ' 2 - Vertical
  473. Global Const BOTH = 3                  ' 3 - Both
  474.  
  475. ' Value (check box)
  476. Global Const UNCHECKED = 0             ' 0 - Unchecked
  477. Global Const CHECKED = 1               ' 1 - Checked
  478. Global Const GRAYED = 2                ' 2 - Grayed
  479.  
  480. ' WindowState (form)
  481. Global Const NORMAL = 0                ' 0 - Normal
  482. Global Const MINIMIZED = 1             ' 1 - Minimized
  483. Global Const MAXIMIZED = 2             ' 2 - Maximized
  484.  
  485.